object VarFieldForm: TVarFieldForm Left = 401 Top = 417 BorderStyle = bsDialog Caption = 'Variable' ClientHeight = 307 ClientWidth = 415 Color = clBtnFace ParentFont = True KeyPreview = True OldCreateOrder = False OnCreate = FormCreate OnKeyDown = FormKeyDown DesignSize = ( 415 307) PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 263 Width = 415 Height = 3 Align = alBottom Shape = bsBottomLine end object Panel1: TPanel Left = 0 Top = 266 Width = 415 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 0 DesignSize = ( 415 41) object btOk: TElPopupButton Left = 190 Top = 8 Width = 105 Height = 25 DrawDefaultFrame = False Caption = 'OK' TabOrder = 0 OnClick = btOkClick Anchors = [akRight, akBottom] end object btCancel: TElPopupButton Left = 302 Top = 8 Width = 105 Height = 25 DrawDefaultFrame = False ModalResult = 2 Caption = 'Cancel' TabOrder = 1 Anchors = [akRight, akBottom] end object btHelp: TElPopupButton Left = 8 Top = 8 Width = 113 Height = 25 ImageIndex = 14 UseImageList = True Images = TrayForm.ilMain DrawDefaultFrame = False Caption = 'Help' TabOrder = 2 Visible = False Anchors = [akLeft, akBottom] end end object pcVar: TElPageControl Left = 8 Top = 8 Width = 402 Height = 249 Flat = True Style = etsNetTabs TabIndex = 0 HotTrackFont.Charset = DEFAULT_CHARSET HotTrackFont.Color = clBlue HotTrackFont.Height = -11 HotTrackFont.Name = 'MS Sans Serif' HotTrackFont.Style = [] ActivePage = pgVar ActiveTabFont.Charset = DEFAULT_CHARSET ActiveTabFont.Color = clWindowText ActiveTabFont.Height = -11 ActiveTabFont.Name = 'MS Sans Serif' ActiveTabFont.Style = [] DefaultPage = pgVar ParentColor = False TabOrder = 1 UseXPThemes = False Anchors = [akLeft, akTop, akRight, akBottom] DockOrientation = doNoOrient object pgVar: TElTabSheet PageControl = pcVar Caption = 'Variable' ExplicitLeft = 0 ExplicitTop = 0 object lbCaption: TLabel Left = 14 Top = 56 Width = 36 Height = 13 Caption = 'Caption' end object lbVarName: TLabel Left = 14 Top = 24 Width = 69 Height = 13 Caption = 'Variable Name' end object lbDefValue: TLabel Left = 14 Top = 96 Width = 64 Height = 13 Caption = 'Default Value' end object lbInputSize: TLabel Left = 14 Top = 156 Width = 87 Height = 13 Caption = 'Max input text size' Enabled = False Visible = False end object edVarName: TElEdit Left = 189 Top = 21 Width = 200 Height = 21 Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 0 end object edCaption: TElEdit Left = 189 Top = 53 Width = 200 Height = 21 Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 1 end object pcWhat: TElPageControl Left = 214 Top = 90 Width = 187 Height = 34 ShowBorder = False ShowTabs = False TabIndex = 3 HotTrackFont.Charset = DEFAULT_CHARSET HotTrackFont.Color = clBlue HotTrackFont.Height = -11 HotTrackFont.Name = 'MS Sans Serif' HotTrackFont.Style = [] ActivePage = pgStr ActiveTabFont.Charset = DEFAULT_CHARSET ActiveTabFont.Color = clWindowText ActiveTabFont.Height = -11 ActiveTabFont.Name = 'MS Sans Serif' ActiveTabFont.Style = [] DefaultPage = pgStr ParentColor = False TabOrder = 2 UseXPThemes = False DockOrientation = doNoOrient object pgDate: TElTabSheet PageControl = pcWhat Caption = 'DCPage2' Visible = False object edDateWhat: TElDateTimePicker Left = 2 Top = 2 Width = 172 Height = 21 Format = edfShortDate FormatString = 'c' DateTime = 38821.498429722200000000 Flat = True ShowPopupCalendar = True CalendarLineColorDark = clWindow StartOfWeek = 1 WeekEndDays = [Sun, Sat] CalendarCurrentDayBorder = fbtFlat CalendarSelectionBorder = fbtNone MinDate = -693593.000000000000000000 MaxDate = 999999.000000000000000000 ButtonWidth = 17 LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack ButtonVisible = False ButtonThinFrame = False UnassignedChar = ' ' TranslateDays = True CalendarHolidayColor = clBlack DockOrientation = doNoOrient ParentColor = False TabOrder = 0 TabStop = True end end object pgBool: TElTabSheet PageControl = pcWhat Caption = 'DCPage3' Visible = False object chBoolWhat: TElCheckBox Left = 0 Top = 3 Width = 22 Height = 17 TabOrder = 0 end end object pgInt: TElTabSheet PageControl = pcWhat Caption = 'DCPage4' Visible = False object edNumWhat: TElSpinEdit Left = 2 Top = 2 Width = 172 Height = 21 Cursor = crIBeam MaxValue = 2147000000 MinValue = -2147000000 Alignment = taRightJustify Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 0 end end object pgStr: TElTabSheet PageControl = pcWhat Caption = 'DCPage1' DesignSize = ( 187 34) object edStrWhat: TElEdit Left = 2 Top = 2 Width = 172 Height = 21 Hint = 'Name' Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack Anchors = [akLeft, akTop, akRight] TabOrder = 0 end end object pgFlt: TElTabSheet PageControl = pcWhat Caption = 'ElTabSheet1' Visible = False object edFltWhat: TElFloatSpinEdit Left = 2 Top = 2 Width = 172 Height = 21 Cursor = crIBeam Increment = 1.000000000000000000 LargeIncrement = 10.000000000000000000 MaxValue = 2147000000.000000000000000000 MinValue = -2147000000.000000000000000000 Alignment = taRightJustify Ctl3D = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack ParentColor = False ParentCtl3D = False TabOrder = 0 end end end object chAllowWeb: TElCheckBox Left = 190 Top = 128 Width = 146 Height = 17 Caption = 'Available in Web interface' Enabled = False TabOrder = 3 OnClick = chAllowWebClick end object edInputSize: TElSpinEdit Left = 277 Top = 152 Width = 112 Height = 21 Cursor = crIBeam Value = 50 MaxValue = 10000 Enabled = False LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 4 Visible = False end end object pgDataType: TElTabSheet PageControl = pcVar Caption = 'Data Type' Visible = False object lbFieldType: TLabel Left = 14 Top = 24 Width = 50 Height = 13 Caption = 'Data Type' end object lbDropDown1: TLabel Left = 14 Top = 90 Width = 134 Height = 13 Caption = 'List of options for DropDown' Visible = False end object lbDropDown2: TLabel Left = 14 Top = 114 Width = 156 Height = 47 AutoSize = False Caption = '(e.g. MyVal;Description of MyVal,'#13#10'or Description of MyVal)' Visible = False WordWrap = True end object cbFieldType: TElComboBox Left = 189 Top = 21 Width = 200 Height = 21 Cursor = crIBeam Items.Strings = ( 'String' 'Integer' 'Double' 'Boolean' 'TDateTime' 'Password') Style = csDropDownList ItemHeight = 13 OnChange = cbFieldTypeChange Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 0 ParentColor = False end object mmDropDown: TElMemo Left = 189 Top = 84 Width = 200 Height = 89 Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 2 Visible = False end object chIsDropDown: TElCheckBox Left = 190 Top = 56 Width = 84 Height = 17 Caption = 'Is DropDown' TabOrder = 1 OnClick = chIsDropDownClick end end end object ElFormPersist1: TElFormPersist Storage = TrayForm.ElIniFile1 PersistOptions = [epoState, epoPosition] TopMost = False Left = 112 Top = 8 PropsToStore = {00000000} end end